home *** CD-ROM | disk | FTP | other *** search

---

/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / apps / 262 / monoview / idfsampl.mon (.png)

< prev

next >

Degas High Resolution Picture (PI)  |  1987-12-03  |  32KB  |  640x400  |  1-bit (2 colors)

Labels: text | screenshot | font
OCR: macro draw-el set Set ANGINCR = _ [= = pi/36] ; This is a sample of END START E [calc-ang SENDANGLI; STOP [calc-ang, ESTARTANGL]; a portion of an inter- if [= (NEWEND-NEWSTART) ZANGINCR] ; $STOP( < 0) (set STOP E MAJOR/21: [= STOP *- 1]) ; face definition file. Set RADX get RADY = Ł= MINOR/21; 1 @sum Cu11 [cos(NEWSTART)*RADX sin (NEWSTART)*RADY) ; STOP ( += NEWSTART ANGINCR; add-pt @r1; @sum @vil (cos(NEWEND}*RADX sin (NEWEND)*RADY) ; . add-pt @r1; . rotate current @vil ROTANG; newIn; echo 26; DRAWING macro sketch ( doing SKETCH; sketch %1 %2 %3; Macro Isketch doing SKETCH; SISPNTS newln; . sketch 200 1 1; transIn -1; The entire interface else (.sketch 200 1 1) of both JILMOD and macro add-pt JILCOMP are user = 33 (add-pt (%1 %2) ) ; takes ADDPT (X ,Y) ; definable. add-pt SADDP

---